home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
System Booster
/
System Booster.iso
/
SYS
/
s
/
EDCopy.ed
< prev
next >
Wrap
Text File
|
1996-09-26
|
756b
|
29 lines
/*
* EDCopy - Copy the marked block to the current clipboard unit.
* Assumes ClipTool is running.
* You can add it to Ed's EDIT menu if you put
* the following command in S:Ed-startup:
*
* SI n 2 "Copy to Clipboard" "rx!EDCopy.ed!"
*
* where n is the menu item number.
*
* You can also add it to a key with something like
*
* SF n "rx!EDCopy.ed!"
*
* where n range from 1 to 57. Please refer to the Ed docs for details.
*/
tempfile = 'T:EDCLIP-'pragma('ID')
options failat 21
'WB!'tempfile'!' /* Tell Ed to write the block */
if rc = 0 then do
address cliptool 'open filename' tempfile
address cliptool 'cut'
address command 'delete quiet force' tempfile
'SM!Copied!'
end
else 'SM!No block selected!'
exit